library(ggplot2)
library(plotly)
p <- ggplot(iris, aes(Sepal.Length,
Sepal.Width, colour = Species)) +
geom_point()
ggplotly(p)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkocGxvdGx5KQ0KYGBgDQoNCg0KYGBge3J9DQpwIDwtIGdncGxvdChpcmlzLCBhZXMoU2VwYWwuTGVuZ3RoLCANCiAgICAgICAgICAgICAgICAgICAgICBTZXBhbC5XaWR0aCwgY29sb3VyID0gU3BlY2llcykpICsNCiAgZ2VvbV9wb2ludCgpDQoNCmdncGxvdGx5KHApDQpgYGANCg0KDQoNCg0K